/*
	1994, Hardy Macia. All rights reserved.

 protoLabelInputLineScrolling and protoLabelPickerScrolling were not
implemented so that you can see how they work, but the good thing is
that they work just like their regular cousin protos except that the
scrolling one use ScrollingDoPopup to scroll the lists. 
protoScrllPopupButton is a button that popups a list that can scroll
also.
*/


constant ScrollingDoPopupSym := '|ScrollingDoPopup:VtHick|;

DEFCONST('kDoPopUp,
	func(list,
		insetH,
		insetVOrInsetVAndStartPlace,
		notifyView)
	Begin
		if GetRoot().(ScrollingDoPopupSym)
		and GetRoot().(ScrollingDoPopupSym).DoPopup
		then
		begin
			local pview := GetRoot().(ScrollingDoPopupSym):DoPopup(
				list,
				insetH,
				insetVOrInsetVAndStartPlace,
				notifyView);
		end		
		else
		begin
			if isInstance(insetVOrInsetVAndStartPlace, 'array) then
				insetVOrInsetVAndStartPlace :=
insetVOrInsetVAndStartPlace[0];
			DoPopUp(
				list,
				insetH,
				insetVOrInsetVAndStartPlace,
				notifyView);
		end;
	End  );
	
	/* replace DoPopup with   
		call kDoPopup with 
								(list,
								insetH,
								insetVOrInsetVAndStartPlace,
								notifyView);
	*/
